home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / www / amitrix / swedish31.lha / Docs / _starttcpscript2 < prev    next >
Text File  |  1997-11-25  |  1KB  |  44 lines
  1. ; Exempelskript för att starta en TCP/IP-stack som inte returnerar
  2. ; när uppkopplingen är klar.
  3. ;
  4. ; Det här är det andra skriptet, det som startar själva stacken.
  5. ; Du skall inte konfigurera det här skriptet i AWeb, det startas
  6. ; från skriptet _starttcpscript.
  7. ;
  8. ; Se till att du ändrar låda och programnamn i det här skriptet till
  9. ; den TCP/IP-stack du använder.
  10. ; =======================================================================
  11.  
  12. .key DUMMY/K ; Så att vi kan använda <$$>
  13.  
  14. ; Kom ihåg vilken CLI-process vi kör i
  15.  
  16. SetEnv TCPPROCESS <$$>
  17.  
  18. ; Avsluta inte skriptet om något går fel
  19.  
  20. FailAt 30
  21.  
  22. ; Starta TCP/IP-stacken.
  23. ;
  24. ; ***********************************************************************
  25. ; *** Ändra raden nedan till att starta den TCP/IP-stack du
  26. ; *** använder, såsom Miami eller TermiteTCP.
  27.  
  28. TCPPath:TCPProgram
  29.  
  30. ; ***********************************************************************
  31.  
  32. ; Om uppkopplingen inte lyckades, avsluta startskriptet som annars
  33. ; skulle vänta för evigt. Om startskriptet inte körs längre kommer
  34. ; variabeln inte att vara satt, och Break-kommandot misslyckas.
  35.  
  36. If WARN
  37.     Break $STARTTCPPROCESS D
  38. EndIf
  39.  
  40. ; Rensa variabeln med vårt processnummer så att _stoptcpscript inte
  41. ; av misstag avslutar en annan process.
  42.  
  43. UnSetEnv TCPPROCESS
  44.